Remove duplicates and then convert it into ggplotly
p <- ggplot(mtcars, aes(vs, am)) + geom_point(alpha = 0.1)
plotly::ggplotly(p)
p <- ggplot(mtcars, aes(vs, am)) + geom_point(alpha = 0.1, stat = "unique")